home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / other / flexcat / lib / arexx.sd < prev    next >
Text File  |  1999-06-14  |  1KB  |  62 lines
  1. ##stringtype None
  2. /* Locale -Support in Arexx 
  3.  
  4.    This file was created automatically by `%fv'
  5.    from "%f0".
  6.  
  7.    Do NOT edit by hand!
  8.  
  9.    ARexx.sd by Kai Norhausen <kn@tribal.line.org>
  10. */
  11.  
  12. TRUE = 1 ; FALSE = 0
  13.  
  14. locale = TRUE ; DEF_LOC = FALSE
  15.  
  16. IF ~Show('L',"locale.library") THEN
  17.    IF ~AddLib("locale.library",0,-30) THEN DO
  18.       SAY "Kein Locale-Support"
  19.       locale = FALSE
  20.    END
  21.  
  22. CALL DefineLocaleStrings   /* Set Defaults */
  23.  
  24. cat = OpenCatalog("%b.catalog","%l",%v)
  25.  
  26. IF cat = 0 THEN
  27.    SAY "Error: Could not use localized strings. Using defaults instead."
  28.  
  29. /* INSERT AREXX PROGRAM HERE
  30.    Example: Write all Strings to stdout */
  31.  
  32. SAY GetLocStr(%i)
  33.  
  34.  
  35.  
  36. /* End */
  37.  
  38. CALL CloseCatalog(cat)
  39. EXIT
  40.  
  41.  
  42. /* ##### Subroutines ###### */
  43.  
  44. GetLocStr:
  45.    ARG id .
  46.    locstr = GetCatalogStr(cat,id,defstr.id)
  47. RETURN locstr
  48.  
  49. DefineLocaleStrings:
  50.    IF DEF_LOC = TRUE THEN RETURN
  51.  
  52.    /* define ID numbers  */
  53.    %i = %e
  54.  
  55.    /* define default-strings */
  56.    defstr.anz = %n
  57.    defstr.%i = "%s"
  58.  
  59.    DEF_LOC = TRUE
  60.  
  61. RETURN
  62.